10 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
20 POKE53265,PEEK(53265)AND239:POKE53296,1
30 DIMCD(51),MX(3,3),MY(3,3):R$="A234567890JQK":S$="[216][193][211][218]":CL$="[155][150]"
40 Z$="[157][157][157][157][157][157][194][194]":F$="[146][145][157][213][192][192][192][192][201]"+Z$+Z$+Z$+Z$+"[157][157][157][157][157][157][202][192][192][192][192][203]"
50 Z$="[157][157][157][157][157][157]  ":C$="[146][145][157]      "+Z$+Z$+Z$+Z$+"[157][157][157][157][157][157]      "
60 BL$="[146]    [157][157][157][157]    [157][157][157][157]    [157][157][157][157]    "
70 DEFFNRN(X)=X-(INT(X/13)*13)+1:DEFFNSU(X)=INT(X/13)+1
80 POKE53280,0:POKE53281,0:GOSUB960:FORI=0TO51:CD(I)=I:NEXT
90 FORI=0TO51:J=52*RND(0):X=CD(J):CD(J)=CD(I):CD(I)=X:NEXT
100 PT=0:FORI=0TO3:FORJ=0TO3:MX(I,J)=CD(PT):PT=PT+1:NEXT:NEXT
110 PRINT"[147]"TAB(30)"[159][213][192]TOTAL[192][201]"
120 FORI=1TO5:PRINTTAB(30)"[194][194]":NEXT:PRINTTAB(30)"[202][192][192][192][192][192][192][192][203]"
130 PRINT""TAB(30)"[156][213][192]CARDS[192][201]"
140 FORI=1TO5:PRINTTAB(30)"[194][194]":NEXT:PRINTTAB(30)"[202][192][192][192][192][192][192][192][203]"
150 PRINT""TAB(25)"[154]    [157][157][157][157] RE [157][157][157][157]DEAL[157][157][157][157]    "
160 POKE214,18:PRINT:PRINTTAB(25)"[153]    [157][157][157][157]CLR [157][157][157][157] ALL[157][157][157][157]    "
170 POKE53296,0:POKE53265,PEEK(53265)OR16
180 FORYY=0TO3:FORXX=0TO3:CD=MX(XX,YY):GOSUB830:POKE54296,15:GOSUB900
190 POKE54296,0:MY(XX,YY)=-1:NEXT:NEXT
200 DC=0:XX=0:YY=0:POKE53269,1
210 GOSUB910
220 FF=0:CC=0:T=0
230 POKE53248,XX*48+42:POKE53249,YY*48+67
240 POKE53287,(PEEK(53287)+8)AND15
250 GETA$:A=NOTPEEK(56320)AND31:IFA=0ANDA$=""THEN240
260 IFA$=CHR$(13)ORA=16THEN360
270 IFA$="[145]"ORA=1THENYY=YY-1:IFYY=-1THENYY=3
280 IFA$=""ORA=2THENYY=YY+1:IFYY=4THENYY=0
290 IFA$="[157]"ORA=4THENXX=XX-1
300 IFA$=""ORA=8THENXX=XX+1
310 IF(YY=0ORYY=3)ANDXX>4THENXX=0:GOTO230
320 IFXX<0ANDYY<>0ANDYY<>3THENXX=3
330 IFXX>3ANDYY<>0ANDYY<>3THENXX=0
340 IFXX<0THENXX=4
350 GOTO230
360 IFXX=4THEN740
370 IFMX(XX,YY)=99THEN240
380 S=FNSU(MX(XX,YY)):R=FNRN(MX(XX,YY))
390 IFR>9 ANDCC<>0 ANDFF=0THEN240
400 IFR<9 ANDCC<>0 ANDFF=1THEN240
410 IFR>9THENFF=1
420 IFS<>CSANDCC<>0THEN240
430 CS=S:MY(XX,YY)=-MY(XX,YY):T=T+R*MY(XX,YY)
440 CC=CC-1:CD$=C$:IFMY(XX,YY)+1THENCD$=F$:CC=CC+2
450 IFCC=0THENFF=0
460 POKE646,7*RND(0)+3:GOSUB900
470 POKE54273,75:POKE54296,15:POKE54277,17:POKE54278,245:POKE54276,17
480 FORI=1TO50:NEXT:GOSUB900:POKE54276,0:POKE54296,0
490 IFFFTHEN520
500 GOSUB910:IFT=15THEN530
510 GOTO240
520 IFCC<>4THEN240
530 PX=XX:PY=YY:FORYY=0TO3:FORXX=0TO3:IFMY(XX,YY)=-1THEN570
540 POKE54277,0:POKE54278,255:POKE54296,6:POKE54276,129
550 FORI=0TO50STEP2:POKE54273,I:NEXT:POKE54273,0:POKE54276,0:POKE54296,0
560 CD$=C$:GOSUB900:CD$=BL$:GOSUB900
570 NEXT:NEXT
580 FORYY=0TO3:FORXX=0TO3:IFMY(XX,YY)=-1THEN630
590 Z=99:IFPT<52THENZ=CD(PT):PT=PT+1
600 MY(XX,YY)=-1:MX(XX,YY)=Z:DC=DC+1 :IFZ=99THEN630
610 CD=Z:GOSUB830:POKE54296,15:GOSUB900:POKE54296,0:GOSUB930
620 FORI=0TO200:NEXT
630 NEXT:NEXT
640 IFDC<52THENXX=PX:YY=PY:T=0:GOTO210
650 POKE53269,0:A$="YOU DID IT!":FORK=1TO3:FORI=21TO0STEP-1:POKE214,I:PRINT
660 POKE646,8*RND(1)+1:PRINTTAB(6)A$
670 FORJ=1TO50:NEXT:PRINTTAB(6)"[145]           ":NEXT
680 X=21:IFK=3THENX=10
690 FORI=0TOX:POKE214,I:PRINT:POKE646,8*RND(1)+1:PRINTTAB(6)A$
700 FORJ=1TO50:NEXT:PRINTTAB(6)"[145]           ":NEXT:NEXT
710 POKE646,15*RND(0)+1:PRINTTAB(6)A$"[145]"
720 GETAA$:IFAA$=""AND(PEEK(56320)AND16)=16THEN710
730 POKE53269,1:GOTO90
740 IFYYTHEN810
750 PRINT""TAB(30)"ARE YOU[157][157][157][157][157][157][157]SURE? ";:POKE204,0
760 FORI=1TO500:NEXT:POKE198,0
770 A=NOTPEEK(56320)AND31:GETA$:IFA$=""ANDA=0THEN770
780 POKE204,1:PRINT""TAB(30)"       [157][157][157][157][157][157][157]       ";
790 IFA$<>CHR$(13)ANDA<>16THEN230
800 PRINT"[147]":GOTO90
810 PX=XX:PY=YY:CD$=C$:FORYY=0TO3:FORXX=0TO3:MY(XX,YY)=-1:GOSUB900:NEXT:NEXT
820 T=0:XX=PX:YY=PY:GOTO210
830 FL=0:IFFNRN(CD)=10THENFL=1
840 CD$=""+MID$(CL$,FNSU(CD),1)
850 IFFLTHENY$="10":GOTO870
860 Y$=MID$(R$,FNRN(CD),1)+" "
870 X$=MID$(S$,FNSU(CD),1):CD$=CD$+Y$+" "+X$+"[157][157][157][157]    [157][157][157][157]    [157][157][157][157]"+X$+" "
880 IFFLTHENCD$=CD$+Y$:RETURN
890 CD$=CD$+" "+LEFT$(Y$,1):RETURN
900 POKE214,YY*6:PRINT:PRINTTAB(XX*6+1)""CD$:RETURN
910 POKE214,4:PRINT:PRINTTAB(31)"";
920 PRINTA$(INT(T/10))"[145][145][145][145][145]"A$(T-INT(T/10)*10)
930 POKE214,13:PRINT:PRINTTAB(31)"[158]";
940 Z=52-PT:PRINTA$(INT(Z/10))"[145][145][145][145][145]"A$(Z-INT(Z/10)*10)
950 RETURN
960 FORI=0TO9:READX$:FORJ=1TO14STEP3:FORK=0TO2
970 IFMID$(X$,J+K,1)=" "THENA$(I)=A$(I)+"[146] "
980 IFMID$(X$,J+K,1)="."THENA$(I)=A$(I)+" "
990 NEXT:A$(I)=A$(I)+"[157][157][157]":NEXT:NEXT
1000 DATA".... .. .. ...."
1010 DATA" . ..  .  . ..."
1020 DATA"...  .....  ..."
1030 DATA"...  . ..  ...."
1040 DATA"  .. ....  .  ."
1050 DATA"....  ...  ...."
1060 DATA"....  .... ...."
1070 DATA"...  . . .  .  "
1080 DATA".... ..... ...."
1090 DATA".... ....  .  ."
1100 FORI=0TO63:READJ:POKE896+I,J:NEXT
1110 POKE53264,0:POKE53269,0:POKE53275,0:POKE53287,3:POKE2040,14:RETURN
1120 DATA192,24,0,224,56,0,112,112
1130 DATA0,56,224,0,29,192,0,15
1140 DATA128,0,7,0,0,15,128,0
1150 DATA29,192,0,56,224,0,112,112
1160 DATA0,224,56,0,192,24,0,0
1170 DATA0,0,0,0,0,0,0,0,0,0,0,0
1180 DATA0,0,0,0,0,0,0,0,0,0,0,0